// SysInit Unit
// Extension Support

(*************)
(* Interface *)
(*************)
{$IFDEF Include_Modules_Header}

 Type
 {$POINTERMATH ON}
  PRTLExSlot_Local = ^TRTLExSlot_Local;
  TRTLExSlot_Local = Pointer;
 {$POINTERMATH OFF}

{$ENDIF Include_Modules_Header}
(******************)
(* Implementation *)
(******************)
{$IFDEF Include_Modules_Implement}

 Type TRTLEx_LocalSlots = Array[0..RTLEx_Slots-1] of Pointer;
 Var _INT_RTLExSlots: TRTLEx_LocalSlots;

 Procedure _INT_InitExtensionStore;
  BEGIN
   FillChar(_INT_RTLExSlots[0], Sizeof(TRTLEx_LocalSlots), 0);
  END;

{$ENDIF Include_Modules_Implement}

